home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / oberonv4 / oberon < prev    next >
Text File  |  1996-06-16  |  2KB  |  79 lines
  1. ; $VER: Oberon_System_V4 1.3 (31.05.96)
  2.  
  3. ;set assign first
  4. IF EXISTS Loader    ; O4A in current dir
  5.     assign Oberon4Amiga: ""
  6. ELSE                ; try to find O4A in $Oberon4AmigaPath
  7.     IF EXISTS $Oberon4AmigaPath        ;is path in $Oberon4AmigaPath OK ?
  8.         assign Oberon4Amiga: $Oberon4AmigaPath ""
  9.         IF NOT EXISTS Oberon4Amiga:loader    ;is $Oberon4AmigaPath not an O4A path ?
  10.             ECHO "Can not find O4A in directory set in Env Var Oberon4AmigaPath."
  11.             ECHO "Plesae change Oberon4AmigaPath or install O4A again."
  12.             WAIT 8
  13.             SKIP Ende
  14.         ENDIF
  15.     ELSE
  16.         ECHO "Can not find O4A in current directory."
  17.         ECHO "Please set the directory of O4A in Env Var Oberon4AmigaPath."
  18.         ECHO "For example: setenv Oberon4AmigaPath Work:OberonV4"
  19.         WAIT 8
  20.         SKIP Ende2
  21.     ENDIF
  22. ENDIF
  23.  
  24. ;Test OS
  25. Oberon4Amiga:loader/TestSystem O
  26. IF WARN
  27.     ECHO "Oberon System V4 requires at least OS 2.04 !"
  28.     WAIT 6
  29.     SKIP Ende
  30. ENDIF
  31.  
  32. ;Test CPU
  33. Oberon4Amiga:loader/TestSystem C
  34. IF WARN
  35.     ECHO "Oberon System V4 requires at least an MC68020 CPU ! Sorry."
  36.     WAIT 6
  37.     SKIP Ende
  38. ENDIF
  39.  
  40. ;Test free memory
  41. Oberon4Amiga:loader/TestSystem M
  42. IF WARN
  43.     ECHO
  44.     ECHO "There is not enough free memory in your system."
  45.     ECHO "Close some applications or buy new memory and try again."
  46.     WAIT 8
  47.     SKIP Ende
  48. ENDIF
  49.  
  50. ;Test FPU
  51. Oberon4Amiga:loader/TestSystem F
  52. IF WARN
  53.     ECHO "There is no Floating Point Unit installed in your system."
  54.     ;NonFPU Version installed
  55.     IF EXISTS Oberon4Amiga:NonFPU
  56.         assign Oberon4Amiga: "Oberon4Amiga:NonFPU" ADD
  57.         ECHO "Oberon starts with the NonFPU Version. You will be able to"
  58.         ECHO "test O4A but REAL types in your programs will not work."
  59.         ECHO "You should buy a FPU if you want to use O4A for real work."
  60.     ELSE
  61.         ECHO "Install Oberon-NonFPU.lha to test O4A without FPU."
  62.         WAIT 8
  63.         SKIP Ende
  64.     ENDIF
  65. ENDIF
  66.  
  67. ;Set additional Assigns
  68. assign Oberon4Amiga: "Oberon4Amiga:System" "Oberon4Amiga:Fonts" "Oberon4Amiga:Tool" "Oberon4Amiga:Text" "Oberon4Amiga:Data" "Oberon4Amiga:Demos" "Oberon4Amiga:System1" "Oberon4Amiga:Configuration" ADD
  69.  
  70. ;start O4A
  71. stack 100000
  72. Oberon4Amiga:Loader/OLoad Oberon4Amiga:
  73.  
  74. LAB Ende
  75.  
  76. assign Oberon4Amiga: REMOVE
  77.  
  78. LAB Ende2
  79.